home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 005 / flowchrt.arc / FLOWDEMO.FLO < prev    next >
Encoding:
Text File  |  1985-12-16  |  2.3 KB  |  75 lines
  1.           .$XM 1.5,0,.25,8.40
  2.           .$XH 2,9.75 
  3. ENTER     .$H FIGURE 1
  4.           .$P COMMENT IN PROCESS BOX 
  5.           .$L THIS IS A LISTING SYMBOL
  6.           .$S SUBLABLE/ COMMENT IN SUBROUTINE BOX
  7.           .$W PREPLABLE/ COMMENT IN PREPARATION BOX
  8.           .$I INOUTLABLE/ COMMENT IN INPUT/ OUTPUT BOX
  9.           .$J LABLE
  10. RESTART   .$C THIS IS A COMMENT 
  11.           .$M ERROR1
  12. LABLE     .$D THIS IS A DISPLAY SYMBOL
  13.           .$T GOOD?
  14.           .$J GOODJUMP
  15.           .$T BAD?
  16.           .$E ERROR
  17. GOODJUMP  .$D DISPLAY DATA
  18.           .$E
  19.           .$XR MH
  20.  
  21. START     .$H FIGURE 2
  22.           .$T IS PRINTER OFF?
  23.           .$P PRINT LINE
  24.           .$P GET NEXT LINE
  25.           .$T PASS 1?
  26.           .$A YES,BRANCH1 NO
  27.           .$P PROCESS ONE
  28.           .$T PASS 2?
  29.           .$A YES,BRANCH2 NO,BRANCH1
  30. BRANCH1   .$P PROCESS TWO
  31. BRANCH2   .$P PROCESS THREE
  32.  
  33.           .$T4 BRANCH ON CODE
  34.           .$A CODE=4,ROUTINE4 CODE=3,ROUTINE3 ;
  35.           .$  CODE=2,ROUTINE2 CODE=1
  36. ROUTINE1  .$S ROUTINE 1
  37. ROUTINE2  .$S ROUTINE 2
  38. ROUTINE3  .$S ROUTINE 3
  39. ROUTINE4  .$S ROUTINE 4
  40.           .$T DATA READY?
  41.           .$A YES NO
  42.           .$P GET DATA
  43.           .$P PROCESS ANY DATA
  44.           .$T STOP?
  45.           .$AE YES,HALT NO
  46.           .$E RETURN
  47.           .$XR
  48.  
  49.           .$xt F0,2,0.00,Line of Text using font=0
  50.           .$xt F1,2,0.25,Line of Text using font=1
  51.           .$xt F2,2,0.50,Line of Text using font=2
  52.           .$xt F3,2,0.75,Line of Text using font=3
  53.           .$xt F4,2,1.00,Line of Text using font=4
  54.           .$xt F5,2,1.25,Line of Text using font=5
  55.           .$xt F6,2,1.50,Line of Text using font=6
  56.           .$xt F7,2,1.75,Line of Text using font=7
  57.           .$xt F8,2,2.00,Line of Text using font=8
  58.           .$xt F9,2,2.25,Line of Text using font=9
  59.           .$xt F10,2,2.50,Line of Text using font=10
  60.           .$xt F11,2,2.75,Line of Text using font=11
  61.           .$xt F12,2,3.00,Line of Text using font=12
  62.           .$xt F13,2,3.25,Line of Text using font=13
  63.           .$xt F14,2,3.50,Line of Text using font=14
  64.           .$xt F15,2,3.75,Line of Text using font=15
  65. ENTRANCE  .$H FIGURE 3
  66. SUBLABLE  .$P PROCESS SUBROUTINE       
  67. PREPLABLE .$P DO PREPARATION
  68. INOUTLABLE .$P PROCESS INPUT /OUTPUT
  69.           .$E
  70.  
  71.  
  72.  
  73.  
  74.  
  75.